home *** CD-ROM | disk | FTP | other *** search
/ Teach Your Children: Road Construction Ahead / Teach Your Children: Road Construction Ahead.iso / pc / rca / road.dxr / 00057_topButtonBarScript.ls < prev    next >
Encoding:
Text File  |  1996-07-17  |  436 b   |  18 lines
  1. global gActorList, gSceneObject
  2.  
  3. on mouseDown
  4.   startBuffering()
  5.   if the dragFlag of gSceneObject <> 1 then
  6.     if count(the stickerList of gSceneObject) < the maxStickers of gSceneObject then
  7.       set choice to buttonBarHandler(#Horizontal, 6, 72, 3) + 6
  8.       if choice > 0 then
  9.         newSticker(gSceneObject, choice)
  10.       end if
  11.       add(gActorList, gSceneObject)
  12.     else
  13.       beep(1)
  14.     end if
  15.   end if
  16.   flushBuffer()
  17. end
  18.